home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / SourceCode / Tutorial / Cookbook / 28.Motion / drawObjects.psw < prev    next >
Text File  |  1995-06-12  |  272b  |  19 lines
  1. defineps doBall(float x,y,width)
  2.     x y width 0.0 360.0 arc fill
  3. endps
  4.  
  5. defineps drawPaddle(float angle, width)
  6.     gsave
  7.         40 40 translate
  8.         angle neg rotate
  9.         newpath
  10.             -45 0 moveto
  11.             90 0 rlineto
  12.             0 width neg rlineto
  13.             -90 0 rlineto
  14.         closepath
  15.         fill
  16.     grestore
  17. endps
  18.  
  19.